www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelCustomPage\D_update_a_template.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <DIV id="loading_msg" style="position:absolute; z-index:200; top:20px; left:184px; background-color:#ffffff; width: 306px; height: 22px;" > 请稍后......</div> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <script type="text/javascript" src="../../inc/zxml.js"></script> <!--#include file=../../inc/ajaxLIB_no_loader.asp--> <% if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <% Server.ScriptTimeout=9999999 session.timeout=600 ' 检测组件变量 dim isobj,VerObj,TestObj '检查组件是否被支持及组件版本的子程序 sub ObjTest(strObj) on error resume next IsObj=false VerObj="" set TestObj=server.CreateObject (strObj) If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议 IsObj = True VerObj = TestObj.version if VerObj="" or isnull(VerObj) then VerObj=TestObj.about end if set TestObj=nothing End sub ObjTest(fssoo_nd_var_str_x_customx) if not isobj then sss1="检测中:对不起,由于你的系统不支持FSO组件,所以无法使用本后台" %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); alert("对不起,由于你的系统不支持FSO组件,所以无法使用本后台"); </script> <% response.end else sss1="检测中:支持FSO......" nwhen_usinga=Application("newdsoft_web_user_mdb_when_using") nis_usinga=Application("newdsoft_web_user_mdb_using") maxxx_tiimeout_a_mdb=60*10 if (not isempty(nwhen_usinga)) or nwhen_usinga<>"" or isDate(nwhen_usinga) then If DateDiff("s",nwhen_usinga,Now())>maxxx_tiimeout_a_mdb and nis_usinga="yes" Then Application.Lock() Application("newdsoft_web_user_mdb_using")="no" Application.UnLock() end if end if if not isDate(nwhen_usinga) then Application.Lock() Application("newdsoft_web_user_mdb_using")="no" Application("newdsoft_web_user_mdb_when_using")=now() Application.UnLock() end if if Application("newdsoft_web_user_mdb_using")<>"yes" then Application.Lock() 'Application("newdsoft_web_user_mdb_using")="yes" Application("newdsoft_web_user_mdb_using")="no" Application("newdsoft_web_user_mdb_when_using")=now() Application.UnLock() else %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>对不起,当前有其他人正在进行 锁定性数据库读写操作,请稍后再重试(最多需等待11分钟)....</font>';",100); alert("对不起,当前有其他人正在进行 锁定性数据库读写操作,请稍后再重试(最多需等待11分钟)"); </script> <% response.end end if %> <script language="javascript"> setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0); setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要更新的标签列表中....</font>';",800); var okeeee=0; var needdo=1; var w ; var w2 ; var a=AJAXcreateXMLdocument(); a.onreadystatechange=function(){ if (a.readyState==4) { if (a.parseError.errorCode!=0){ alert("数据读取错误,请重试!!,请关闭所有占用数据库的软件如ACCESS"); } var root=a.documentElement; var staut=root.firstChild.text; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要更新的自定义标签列表成功......"+"</font>';",1500); okeeee=1; sys_label_get(); } } a.async=true; //异步模式 a.load("../adminLabel/D_ajax_update_custom_label_list_to_mdb_from_files.asp"); setTimeout("err_timeout();",120000); function err_timeout(){ if (okeeee==0){ alert("你可能打开了数据库软件ACCESS等,请先关闭它,再刷新本页,或者数据库已锁定!"); } } function sys_label_get(){ setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要更新的系统标签列表中....</font>';",800); var a=AJAXcreateXMLdocument(); a.onreadystatechange=function(){ if (a.readyState==4) { if (a.parseError.errorCode!=0){ alert("数据读取错误,请重试!!"); } var root=a.documentElement; var staut=root.firstChild.text; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要更新的系统标签列表成功......"+"</font>';",1500); //循环延时,防止卡住: w = setInterval("do_kernel()",40); } } a.async=true; //异步模式 a.load("../adminLabel/D_ajax_update_sys_label_list_to_mdb_from_files.asp"); } var ended=0; var ended2=0; var pos=""; var msg1=""; var a2=AJAXcreateXMLdocument(); a2.onreadystatechange=function(){ if (a2.readyState==4) { if (a2.parseError.errorCode!=0){ alert("数据读取错误,请重试!!"); } var root=a2.documentElement; var ss1=root.firstChild.text; var ss2=root.childNodes[1].text; var ss3=root.childNodes[2].text; if (ss1==1){ended=1;} pos=ss2; msg1=ss3; needdo=1; setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在更新 "+msg1+"......"+"</font>';",800); if (ended==0){ } else { //setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"现在正在更新要更新的模板,请稍后......"+"</font>';",900); document.all.loading_msg.innerHTML="<font color=#000000>"+"现在正在更新要更新的模板,请稍后......"+"</font>"; setTimeout("template_u();",2000); } } } function do_kernel(){ if (needdo==1&&ended==0){ needdo=0; a2.async=true; //异步模式 a2.load("../adminLabel/D_ajax_update_label_to_mdb_from_files_by_step.asp?pos="+pos); } } function template_u(){ self.location="D_update_a_template_do.asp?pname=<%=request("pname")%>&pid=<%=request("pid")%>&fname=<%=request("fname")%>&fpath=<%=request("fpath")%>"; } </script> <% end if %>